home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / m / magazin / hitdisk6 / programm.e / mausab.lst < prev    next >
Encoding:
File List  |  1996-09-18  |  921 b   |  31 lines
  1. ' ***************************************************************
  2. ' *          Beispiel für eine Mausabfrage in GFA Basic         *
  3. ' *                        HIT Disc 4/90                        *
  4. ' ***************************************************************
  5. '
  6. BOX 10,10,40,80                          ! Box zeichnen
  7. '
  8. DO                                       ! Endlosschleife
  9.   GOSUB mausabfrage                      ! MAUSKOORDINATEN HOLEN
  10.   '
  11.   IF x%>10 AND y%>10 AND x%<40 AND y%<80 AND z%=1   ! KOORDINATEN
  12.     GOSUB werweiswas                                ! DER MAUS INERHALB
  13.   ENDIF                                             ! DER BOX ?
  14. LOOP
  15. '
  16. PROCEDURE mausabfrage
  17.   MOUSE x%,y%,z%
  18. RETURN
  19. '
  20. ' Demonstrationsprozedure
  21. '
  22. PROCEDURE werweiswas
  23.   INC klick%
  24.   TEXT 10,100,"SIE HABEN SCHON "+STR$(klick%)+" MAL AUF DIE BOX"
  25.   TEXT 10,110,"GEKLICKT !"
  26.   PAUSE 10
  27. RETURN
  28. '
  29. ' ENDE
  30. '
  31.